
(map len '((1 2 3) #(4 5 6 7) "89"))	; => (3 4 2)

(map elt
     '((1 2 3) #(4 5 6 7) "89")
     '(2 1 0))				; => (3 5 #\8)

(let ((data (list (list 1 2 3)
		  (vector 4 5 6 7)
		  (string #\8 #\9))))
  (for-each elt! data '(2 1 0) '(-1 -2 #\z))
  data)					; => ((1 2 -1) #(4 -2 6 7) "z9")

(map elt-right
     '((1 2 3) #(4 5 6 7) "89")
     '(2 1 0))				; => (1 6 #\9)
